unit RakeOffCalcList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseBillList, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxStyles, dxSkinscxPCPainter, cxCustomData,
  cxFilter, cxData, cxDataStorage, DB, cxDBData, Menus, DBActns,
  StdActns, ActnList, ImgList, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid,
  cxLabel, ExtCtrls,
  GlobalVar, cxGridCustomPopupMenu, cxGridPopupMenu, MemDS, DBAccess, Uni,
  cxNavigator;

type
  TfrmRakeOffCalcList = class(TfrmBaseBillList)
    procedure FormCreate(Sender: TObject);
    procedure PopmnuNewRecordClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRakeOffCalcList: TfrmRakeOffCalcList;

implementation

uses RakeOffCalc;

{$R *.dfm}

procedure TfrmRakeOffCalcList.FormCreate(Sender: TObject);
begin
  FBType := btRakeOffCalc;
  inherited;

end;

procedure TfrmRakeOffCalcList.PopmnuNewRecordClick(Sender: TObject);
begin
  inherited;
  frmRakeOffCalc:= TfrmRakeOffCalc.Create(nil);
  if (frmRakeOffCalc.ShowModal = mrOk) then
    LocateRecord(-1, 6);
  FreeAndNil(frmRakeOffCalc);
end;

end.
